﻿Module Module1
  Sub Main()
    Dim I As Integer
    Dim data As Date
    Dim nomiGGsettimana As String() = _
       {"Domenica", "Lunedì", "Martedì", _
        "Mercoledì", "Giovedì", "Venerdì", _
        "Sabato"}
    data = Date.Now
    For I = 0 To 6
      data = Date.Now.AddDays(I)
      Console.WriteLine("Giorno " & _
         data.Day & ": " & _
         nomiGGsettimana(data.DayOfWeek))
    Next
    Console.WriteLine()

    For I = 0 To 3
      data = Date.Now.AddDays(I * 7)
      Console.WriteLine("Giorno " & _
           data.Date & ": " & _
           nomiGGsettimana(data.DayOfWeek))
    Next
    Console.WriteLine()

    For I = 0 To 3 * 7 Step 7
      data = Date.Now.AddDays(I)
      Console.WriteLine("Giorno " & _
           data.Date & ": " & _
           nomiGGsettimana(data.DayOfWeek))
    Next

    Console.ReadLine()
  End Sub
End Module
